pse
/OvDict 50 dict def
OvDict begin

/Bdf {bind def} bind def
/Clw {currentlinewidth} Bdf
/Cp  {closepath} Bdf
/CPt  {currentpoint} Bdf
/Ct  {curveto} Bdf
/Gr  {grestore} Bdf
/Gs  {gsave} Bdf
/Lt  {lineto} Bdf
/Mt  {moveto} Bdf
/Np  {newpath} Bdf
/Rmt {rmoveto} Bdf
/Sk  {stroke} Bdf
/Slw {setlinewidth} Bdf
/Sw  {stringwidth pop} Bdf
/Tx	  {show} Bdf
/Get  { exch def } Bdf
/Char 1 string def

/RChAt
{ /RJ Get /Ch Get /EP Get
Char 0 Ch put
RJ 0 ne { /EP EP Char Sw sub def } if
/EP EP CPt pop add def
{ Char Tx
CPt pop EP ge {exit} if
} loop
RJ 0 ne { EP CPt exch pop Mt Char Tx } if
} Bdf

/ASlur
{ 
CPt translate
/SP Get
/Y3 Get /X3 Get /Y2 Get /X2 Get
/Y1 Get /X1 Get /Y0 Get /X0 Get
Gs
.25 Slw
Np
X0 Y0 Mt X1 Y1 X2 Y2 X3 Y3 Ct
X2 Y2 SP add X1 Y1 SP add X0 Y0 Ct
fill Gr
} Bdf

/ADSlur
CPt translate
{ /SP Get
/Y3 Get /X3 Get /Y2 Get /X2 Get
/Y1 Get /X1 Get /Y0 Get /X0 Get
Np
.25 Slw
[1 2] 0 setdash
{ SP 0 gt
  { X0 Y0 Mt X1 Y1 SP add X2 Y2 SP add X3 Y3 Ct Sk
    /SP SP .25 sub def }{exit} ifelse
} loop
[] 0 setdash
} Bdf

/AStaff
{ /SP Get /NL Get /Ch Get /EP Get
/X0 CPt pop def
/Y0 CPt exch pop def
Char 0 Ch put
/EP X0 EP add Char Sw sub def
1 1 NL { pop
X0 Y0 Mt
{
Char Tx
CPt pop EP ge {exit} if
} loop
EP Y0 Mt Char Tx
/Y0 Y0 SP add def } for
} Bdf

/ABeam
{
CPt translate
/Ru Get /Lu Get /Bh Get /Ev Get /Eh Get /Sv Get /Sh Get /Pe Get /Ps Get
Lu 0 ne { /Sh Sh (l) Sw add (m) Sw sub def } if
Ru 0 ne { /Eh Eh (l) Sw add def } if
Gs
Sh -10000 Eh 10000 Clip
Bh Slw 2 setlinecap
/Bh Bh 2 div def
/Sv Sv Bh sub def
/Ev Ev Bh sub def
Ps Sv Mt Pe Ev Lt Sk
Gr
} Bdf

%%IncludeFont: Aloisen
/MF { /FS Get /Aloisen findfont FS scalefont setfont } Bdf

end
psb